home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 21 / 021.d81 / pixel page (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  35 lines

  1. 4 ifx=0thenx=1:gosub1000:                  load"unpacker",8,1
  2. 5 ifx=1thenx=2:load"pixel.shp",8,1
  3. 10 poke249,224:poke250,204:                 rem screen/color
  4. 20 poke251,0:poke252,64:                    rem shp buffer
  5. 30 poke253,0:poke254,0:                     rem   x-pos,y-pos
  6. 35 print"[145][145]    press space bar to view cover."
  7. 37 print" press it again to return to loadstar."
  8. 40 wait198,1:poke198,0
  9. 42 s=54272:fori=.to23:pokes+i,0:next
  10. 43 pokes+24,15:pokes+5,255:pokes+6,255
  11. 44 pokes+12,255:pokes+13,255:pokes+19,255
  12. 45 pokes+20,255:pokes+1,3:pokes+8,3
  13. 46 pokes+15,3:pokes+7,7:pokes+14,18
  14. 47 pokes+15,3:pokes+7,7:pokes+14,18
  15. 48 pokes+4,17:pokes+11,17:pokes+18,17
  16. 50 sys51456:    rem  unpack normal shp
  17. 60 sys51459:    rem  show screen
  18. 70 wait198,1:poke198,0
  19. 80 sys51459:    rem  return to normal
  20. 90 :
  21. 95 load"hello connect",8:end
  22. 1000 rem  main screen
  23. 1002 poke53280,0:poke53281,0:print"[147]"chr$(142)chr$(8)
  24. 1004 printspc(13)"[158]loadstar #21"
  25. 1006 print""spc(14)"pixel page"
  26. 1010 print:print:print
  27. 1012 print:print:print
  28. 1014 print"[158]               monolith"
  29. 1016 print:print:print
  30. 1018 print:print
  31. 1020 print"[154]  cover designed by jerry jones using"
  32. 1022 printspc(12)"the koala pad."
  33. 1030 print"[156]    loading picture...please wait."
  34. 1040 return
  35.